home *** CD-ROM | disk | FTP | other *** search
/ Programmer Plus 2007 / Programmer-Plus-2007.iso / Programming / Borland Plateform / Turbo Prolog 2 / EXAMPL27.PRO < prev    next >
Encoding:
Prolog Source  |  1986-04-01  |  992 b   |  35 lines
  1.                 /* Program 27 */
  2. predicates
  3.     start
  4.     run(integer)
  5.     do_sums
  6.     set_up_windows
  7.     clear_windows
  8. clauses
  9.   start :-
  10.          set_up_windows,do_sums.
  11.   set_up_windows :-
  12.        makewindow(1,7,7,"",0,0,25,80),
  13.        makewindow(1,7,7,"Left operand",2,5,5,25),
  14.        makewindow(2,7,7,"",2,35,5,10),
  15.        nl,write(" PLUS"),
  16.        makewindow(2,7,7,"Right operand",2,50,5,25),
  17.        makewindow(3,7,7,"Gives", 10,30,5,25),
  18.        makewindow(4,7,7,"",20,30,5,35).
  19.   do_sums :-
  20.          run(_),clear_windows,do_sums.
  21.   run(Z)  :-
  22.        shiftwindow(1),
  23.        cursor(2,1),readint(X),
  24.        shiftwindow(2),
  25.        cursor(2,10),readint(Y),
  26.        shiftwindow(3),Z=X+Y,cursor(2,10),write(Z),
  27.        shiftwindow(4),
  28.        write("  Please press the space bar"),
  29.        readchar(_).
  30.   clear_windows :-
  31.        shiftwindow(1),clearwindow,
  32.        shiftwindow(2),clearwindow,
  33.        shiftwindow(3),clearwindow,
  34.        shiftwindow(4),clearwindow.
  35.